﻿Imports LibUtils.IO

Namespace Attachments

    Public Class FileAttachment
        Inherits BinaryAttachment

        Private _id As Integer
        Private _processId As Integer
        Private _datum As Date

        Public Sub New()
            MyBase.New()
        End Sub

        Public Overrides Property Id As Integer
            Get
                Return _id
            End Get
            Set(ByVal value As Integer)
                _id = value
            End Set
        End Property

        Public Property Datum As Date
            Get
                Return _datum
            End Get
            Set(ByVal value As Date)
                _datum = value
            End Set
        End Property

        Public Property ProcessId As Integer
            Get
                Return _processId
            End Get
            Set(ByVal value As Integer)
                _processId = value
            End Set
        End Property

        Public Property File As Byte()
            Get
                Return Binary
            End Get
            Set(ByVal value As Byte())
                Binary = value
            End Set
        End Property


    End Class

End Namespace